setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
for a=1 to 10
b$="*"+space$(a)+"*"
prints(b$)
next
waitkey